home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / REPONLY.SRC < prev    next >
Text File  |  1990-11-03  |  4KB  |  196 lines
  1. ;\|
  2. ;REPONLY.SRC     Translated from REPONLY.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;REPONLY  12:08:06 PM  14/ 1/90                    |
  4.     define(P29|A|29||)
  5.     define(COUNTER|N|4||)
  6.     define(MEM_DOC|N|1||)
  7.     define(TD|D|10||)
  8.     define(PR_CTR|N|2||)
  9.     define(TOTAL_MATCH|N|8|0|)
  10.     define(PER_CENT|N|3||)
  11.     define(TOTAL_MAT_CRIT|N|4||)
  12.     define(PERCENTAGE|N|8|2|)
  13.     define(REC_DATE|S|8||)
  14.     define(COUNT|N|4||)
  15.     define(SELECT.FLD.F1|A|  4||)
  16.     define(SELECT.FLD.T1|A|  4||)
  17.     define(SELECT.FLD.F2|S|  8||)
  18.     define(SELECT.FLD.T2|S|  8||)
  19.     define(SFT|A|1||)
  20.     define(DOB1|D|10||)
  21.     define(DOB2|D|10||)
  22.     define(CTR|N|1||)
  23.     define(MEM_DATE|S|8||)
  24.     define(MEM_COD|A|4||)
  25.     define(ENTER|A|1||)
  26.     define(FLAG|A|1||)
  27.     open(RECALLS||0|EXIT)
  28.     open(PATIENT||0|EXIT)
  29.     trap(Q|g|exit)
  30.     trap(I|G|EXIT)
  31.     date(TD|G)
  32.     mount(SELECT|S||)
  33. START:
  34.     enter(CTR|"123456789"|||N|Y|N|||N)
  35.     enter(SELECT.FLD.F1||||||||)
  36.     enter(SELECT.FLD.T1||||||||)
  37.     enter(SELECT.FLD.F2||||||||)
  38.     enter(SELECT.FLD.T2||||||||)
  39. FLAG_AGAIN:
  40.     enter(FLAG|"YN"|||Y|Y|N|||N)
  41.     pmsg("IS ALL THE ABOVE CORRECT? Y/N:"|30|22|Y|N|S|ENTER)
  42.     if ENTER <> ("Y") then goto START
  43.     pchr(P|4)
  44.     pchr(P|1)
  45.     pset(100|66|66)
  46.     for(PR_CTR|1|20|1)
  47.         {
  48.         pmsg(""|1|1|N|N|P|)
  49.         }
  50.     pmsg("RECALL LIST PRINTED ON :";TD;" USING FOLLOWING CRITERIA:"|1|1|N|N|P|)
  51.     pmsg("======================================================================"|1|1|N|N|P|)
  52.     pmsg("RECALL TYPE NUMBER: ";CTR|1|1|N|N|P|)
  53.     pmsg("FROM CODE: ";SELECT.FLD.F1;" TO CODE: ";SELECT.FLD.T1|1|1|N|N|P|)
  54.     pmsg("FROM CODE DATE: ";SELECT.FLD.F2;" TO CODE DATE: ";SELECT.FLD.T2|1|1|N|N|P|)
  55.     pmsg("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"|1|1|N|N|P|)
  56.     pmsg(""|1|1|N|N|P|)
  57.     pmsg("====================================================================="|1|1|N|N|P|)
  58.     for(PR_CTR|1|38|1)
  59.         {
  60.         pmsg(""|1|1|N|N|P|)
  61.         }
  62.     trap(I|G|FINI)
  63.     mount(SCREEN|R|P)
  64.     ptof
  65.     pchr(P|4)
  66.     pset(132|66|60)
  67.     pchr(P|1)
  68.     find(B|COD.PAT.NAME|NO.RECS|N)
  69. PRT.REC:
  70.     if SELECT.FLD.F1 <> ("") then if SELECT.FLD.F1 > (COD[CTR]) goto RD.NEXT
  71.     if SELECT.FLD.T1 <> ("") then if SELECT.FLD.T1 < (COD[CTR]) goto RD.NEXT
  72.     if SELECT.FLD.F2 <> (0) then if SELECT.FLD.F2 > (COD.D[CTR]) goto RD.NEXT
  73.     if SELECT.FLD.T2 <> (0) then if SELECT.FLD.T2 < (COD.D[CTR]) goto RD.NEXT
  74. PRINTIT:
  75.     MEM_COD = (COD[CTR])
  76.     MEM_DATE = (COD.D[CTR])
  77.     RECORD.NUMBER = (COD.REF)
  78.     find(M|RECORD.NUMBER|EXIT|)
  79.     TOTAL_MAT_CRIT = (TOTAL_MAT_CRIT+1)
  80.     P29 = (PATIENT.NAME)
  81.     pfmt(1|||N|N|)
  82.     goto rd.next
  83. RD.NEXT:
  84.     find(N|RECALLS|FINI|)
  85.     goto PRT.REC
  86. FINI:
  87.     pmsg("TOTAL MATCHING RECS:";TOTAL_MAT_CRIT|1|1|N|N|P|)
  88.     run("recmenu")
  89. NO.RECS:
  90.     pmsg("There are no records in the RECALLS  file "|1|24|Y|||)
  91. EXIT:
  92.     run("recmenu")
  93. NUMBER:
  94.     find(B|COD.REF|TEST_RET|)
  95. TEST:
  96.     if COD.D[CTR] > (0) then TOTAL_MATCH = (TOTAL_MATCH+1)
  97.     if COD[CTR] = ("****") then TOTAL_MATCH = (TOTAL_MATCH+1)
  98.     find(N|RECALLS|TEST_RET|)
  99.     goto TEST
  100. TEST_RET:
  101.     ret
  102. \STSELECT  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.              ┌─────────────────────────────────────────────────────┐
  110.              │          RECALL NO:&  eg 1 = smears 2 = contra etc  │
  111.              │         From Code: &    Leave blank for all codes   │
  112.              │         To Code -: &     "      "    "  "    "      │
  113.              │   From Code Date : &                                │
  114.              │   To Code Date - : &                                │
  115.              │                                                     │
  116.              └─────────────────────────────────────────────────────┘
  117.                                     CONTINUE  Y/N:&
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127. \
  128. CTR
  129. SELECT.FLD.F1
  130. SELECT.FLD.T1
  131. SELECT.FLD.F2
  132. SELECT.FLD.T2
  133. FLAG
  134. \
  135. \R SCREEN  
  136. &                                &                      &           (&   ) &         &
  137. &                                &                      &            &     NO RECALL ON FILE - recall added
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184. \
  185. P29
  186. ADDRESS1
  187. DATE.OF.BIRTH
  188. MEM_COD
  189. MEM_DATE
  190. DOCTOR
  191. P29
  192. ADDRESS1
  193. DATE.OF.BIRTH
  194. DOCTOR
  195. \
  196.